home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ML_VECTB.ZIP / UTILS / MK_ML.PAS < prev    next >
Pascal/Delphi Source File  |  1996-04-03  |  707b  |  30 lines
  1. {$M 32000,0,0}
  2. { Program which creates the 'ML' text-bitmap, using ML82.SFT image. }
  3. { by Maple Leaf, 1996  - No comments are necessarry                 }
  4. uses dosio,alloc;
  5. var f:file;
  6.     p:pointer;
  7.  
  8. procedure writeML;
  9. var fo:file; y:word;
  10. begin
  11.   writeln('Creating X-Mode type ML bitmap ...');
  12.   openforoutput(fo,'ml.btm','');
  13.   y:=93; blockwrite(fo,y,2);
  14.   y:=31; blockwrite(fo,y,2);
  15.   for y:=0 to 30 do begin
  16.     seek(f,768+320*longint(y));
  17.     blockread(f,p^,93);
  18.     blockwrite(fo,p^,93);
  19.   end;
  20.   closefile(fo,'');
  21. end;
  22.  
  23. begin
  24.   p:=malloc(100); { 100 bytes is enough }
  25.   openforinput(f,'ml82.sft','');
  26.   WriteML;
  27.   closefile(f,'');
  28.   free(p);
  29.   Writeln('All done.');
  30. end.